home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 04 - 05 - 06 (1990)(MindCraft Publishing)[no boot].zip / Nibble Volume 11, No. 04 - 05 - 06 (1990)(MindCraft Publishing)[no boot].po / NIBBLE.1990:APR.VOL11.NO04 / UC.ALL.bas < prev    next >
BASIC Source File  |  1996-12-24  |  151b  |  1 lines
  1. 10  INPUT "ENTER STRING: ";A$:L =  LEN(A$):C$ = "": FOR I = 1 TO L:C =  ASC( MID$ (A$,I,1)):C$ = C$ + CHR$(C -32 *(C >96  AND C <123)): NEXT : PRINT C$